home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / gnu_st.lha / gnu_st / smalltalk-1.1.1 / test / array.st < prev    next >
Text File  |  1991-09-12  |  1KB  |  78 lines
  1. "Test the array routines"
  2.  
  3. "======================================================================
  4. |
  5. | Copyright (C) 1988, 1989  Steven B. Byrne.
  6. | All rights reserved.
  7. |
  8.  ======================================================================"
  9.  
  10. !Object methodsFor: 'testing'!
  11.  
  12. arrayConstTest1
  13.     | a |
  14.     a _ #(foo bar 'quem').
  15.     ^a
  16. !
  17.  
  18. arrayConstTest2
  19.     | a |
  20.     a _ #(foo bar 'quem').
  21.     ^a class
  22. !
  23.  
  24. arrayConstTest3
  25.     | a |
  26.     a _ #(foo bar 'quem').
  27.     ^a size
  28. !
  29.  
  30. arrayConstTest4
  31.     | a |
  32.     a _ #(foo (a sub array) bar 'quem' 3.4 1 $C barn:yard:owl: baz).
  33.     ^a class
  34. !
  35.  
  36. arrayConstSubscriptTest
  37.     | a |
  38.     a _ #(foo (a sub array) bar 'quem' 3.4 1 $C barn:yard:owl: baz).
  39.     ^a at: self
  40. !
  41.  
  42. newArray1
  43.     | a |
  44.     a _ Array new: 10.
  45.     ^a class
  46. !
  47.  
  48. newArray2
  49.     | a |
  50.     a _ Array new: 10.
  51.     a at: self put: self.
  52.     ^a at: self
  53. !!
  54.  
  55. ^nil arrayConstTest1!
  56.  
  57. ^nil arrayConstTest2!
  58.  
  59. ^nil arrayConstTest3!
  60.  
  61. ^nil arrayConstTest4!
  62.  
  63. ^1 arrayConstSubscriptTest!
  64. ^2 arrayConstSubscriptTest!
  65. ^3 arrayConstSubscriptTest!
  66. ^4 arrayConstSubscriptTest!
  67. ^5 arrayConstSubscriptTest!
  68. ^6 arrayConstSubscriptTest!
  69. ^7 arrayConstSubscriptTest!
  70. ^8 arrayConstSubscriptTest!
  71. ^9 arrayConstSubscriptTest!
  72.  
  73. ^nil newArray1!
  74.  
  75. ^1 newArray2!
  76. ^5 newArray2!
  77. ^10 newArray2!
  78.